The keyfor function allows you to pull all of the keys for a given value in an assoc. This
function takes two arguments, a list and a value to match
-------------------------------------------------------------------------------------------


(define l1 (assoc (pair "adios" "goodbye") (pair (quote cya) "goodbye") (pair "hi" "hello")))

(write (keyfor l1 "goodbye"))
